home *** CD-ROM | disk | FTP | other *** search
/ What CD? 12 / What PC June 1997.iso / multi / cyber / cyber95 / _setup.1 / WEB.POP < prev    next >
Encoding:
Text File  |  1996-09-04  |  1.4 KB  |  67 lines
  1. // web.pop
  2. // describes a form based on William Latham's "Web Forms"
  3.  
  4. population 0
  5. dimensions = 1
  6. colour_model RGB
  7. render_quality flat
  8.  
  9. genome 0 {
  10.  
  11.     // top level structure iterates in a circle, creating outward pointing spokes
  12.     setScalarMem( 0, 5 : 3 : 10 ),  // mem[0] = #spokes
  13.     branchFor(
  14.         getScalarMem(0),
  15.         1,        // mem[1] = current spoke [ 0 ... #spokes-1]
  16.  
  17.         // inter-spoke code - rotates in a circle
  18.         swivelLeft( div(dtor(360), getScalarMem(0)) ),
  19.  
  20.         // spoke code - creates a horn form jutting out at right angles to
  21.         // main circle and then branches smaller sub-horns at right angles
  22.         *join(
  23.             swivelRight( dtor(90) ),
  24.  
  25.             // major horn form
  26.             *scope(
  27.                 eggScale( 1 : .5 : 1.5 ),
  28.                 repeat(
  29.                     3 : 2 : 15,
  30.                     join(
  31.                         forward( .5 : 0.01 : 0.6 ),
  32.                         moveHue( .1 : -.2 : .2 ),
  33.                         lay
  34.                     )
  35.                 )
  36.             ), // end major horn form
  37.  
  38.             // minor branches
  39.             eggScale( 1 : .5 : 1.5 ),
  40.             *repeat(
  41.                 3 : 2 : 15,
  42.  
  43.                 join(
  44.                     forward( .5 : 0.01 : 0.6 ),
  45.  
  46.                     // minor horn-form
  47.                     *scope(
  48.                         swivelRight( dtor(90) ),
  49.                         scale( .5 : 0.1 : 1 ),
  50.                         repeat(
  51.                             8 : 2 : 20,
  52.                             join( 
  53.                                 forward( .5 : 0.05 : 0.6 ),
  54.                                 moveHue( .1 : -.2 : .2 ),
  55.                                 lay
  56.                             )
  57.                         )
  58.                     ) // end minor horn form
  59.                 )
  60.             ) // end minor branches
  61.     
  62.         )  // end spoke code
  63.     ) // end web 'branchFor'
  64. }
  65.  
  66. // eof : web.pop
  67.